## EXERCCIO 2 ##
#
## Biomassa de rvores ##
#
e=exp(-1.7953)
d=15
b=e*d^2.2974
b
# 
# O calculo acima criou-se os objetos: "e" para o expoente de valo -1.7953; "d" para o valor DAP=15cm; e "b" para equao final.
#
h=12
l=(-2.6464+1.9960*log(d)+0.7558*log(h))
l
l2=exp(l)
l2
#
# O calculo acima criou-se os objetos: "h" para o da altura h=12m; "l" para a equao em funo de log; e "l2" para transformar a funo em valor comparvel com a equao "b". 
#
l2-b
#
# A diferena entre o resultado das duas equao "l2" - "b", dado em kg.
#
## Sequncias ##
#
# 1. repetio do "a" n vezes.  
a= rep("a", 6)
a
# 2. repetio e sequencia dos nm. de 1 a 3.
b=rep(1:3, each=3)
b
# 3. repetio decrescente e sequencia dos nm. de 1 a 3.
c=c(rep(1,3),rep(2,2),3)
c
# 4. repetio sequencial de 1 a 5 (crescente) e 1 a 4 (decrescente)   
d=c(rep(1:5),rep(4:1))
d
# 5. Nm. impares de 1 a 99.
#
e=seq(1,99,by=2)
e
#
## Conta de Luz ##
#
con=c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052) 
con
# 1. O consumo mensal (abaixo)
men=diff(con)
men
# 2. Mximo e Mnimo do cons. mensal
max(con)
min(con)
# 3. A mdia, mediana e varincia do cons. mensal
mean(con)
var(con)
range(con)
median(con)
#
## rea Basal ##
# 
# 1. Calculo do DAP
dap=13.5
r=dap/2
r
bas=pi*r^2
bas
dap'=c(7,9,12)
r=dap'/2
dap'=c(7,9,12)
dap'
dap1=c(7,9,12)
dap1
r=dap1/2
r
bas(r)
bas=pi*r^2
bas(r)
bas
sum(bas)
pes=c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4) 
pes
media=mean(pes)
media
desv=media-pes
desv
vari=sum(desv^2)/length(pes)-1)
vari=sum(desv^2)/(length(pes)-1)
vari
# 2. Comparao
var(pes)
sd(pes)
save.image()
help(dt)
pt(2.2,19)
1-pt(2.2,19)
pt(2.2,19, lower.tail=F)
pt(2.2,19, lower.tail=F)*2
1-pt(1.9,19)*2*100
1-pt(1.9,19)*2
1-pt(1.9,19)
# Para t=2.2
pt(2.2,19, lower.tail=F)*2*100
# Para t=1.9 
pt(1.9,19, lower.tail=F)*2*100
1-pt(1.9,19)
tt=1-pt(1.9,19)
tt
tt*2*100
## EXERCCIO 2 ##
#
## Biomassa de rvores ##
#
e=exp(-1.7953)
d=15
b=e*d^2.2974
b
# 
# O calculo acima criou-se os objetos: "e" para o expoente de valo -1.7953; "d" para o valor DAP=15cm; e "b" para equao final.
#
h=12
l=(-2.6464+1.9960*log(d)+0.7558*log(h))
l
l2=exp(l)
l2
#
# O calculo acima criou-se os objetos: "h" para o da altura h=12m; "l" para a equao em funo de log; e "l2" para transformar a funo em valor comparvel com a equao "b". 
#
l2-b
#
# A diferena entre o resultado das duas equao "l2" - "b", dado em kg.
#
## Sequncias ##
#
# 1. repetio do "a" n vezes.  
a= rep("a", 6)
a
# 2. repetio e sequencia dos nm. de 1 a 3.
b=rep(1:3, each=3)
b
# 3. repetio decrescente e sequencia dos nm. de 1 a 3.
c=c(rep(1,3),rep(2,2),3)
c
# 4. repetio sequencial de 1 a 5 (crescente) e 1 a 4 (decrescente)   
d=c(rep(1:5),rep(4:1))
d
# 5. Nm. impares de 1 a 99.
#
e=seq(1,99,by=2)
e
#
## Conta de Luz ##
#
con=c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052) 
con
# 1. O consumo mensal (abaixo)
men=diff(con)
men
# 2. Mximo e Mnimo do cons. mensal
max(con)
min(con)
# 3. A mdia, mediana e varincia do cons. mensal
mean(con)
var(con)
range(con)
median(con)
#
## rea Basal ##
# 
# 1. Calculo do DAP
dap=13.5
r=dap/2
r
bas=pi*r^2
bas
# 2. Calculo dos diferentes valore das reas basis a partir do DAP.
dap1=c(7,9,12)
dap1
r=dap1/2
r
bas=pi*r^2
bas
sum(bas)
#
## Varincia na Unha ##
#
#1. Calcula da variancia e desvio-padro
pes=c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4) 
pes
media=mean(pes)
media
desv=media-pes
desv
vari=sum(desv^2)/(length(pes)-1)
vari
# 2. Comparao
var(pes)
sd(pes)
#
## Teste t ##
#
# Para t=2.2
pt(2.2,19, lower.tail=F)*2*100
# O teste  significativo
#
# Para t=1.9 
pt(1.9,19, lower.tail=F)*2*100
# O teste no  significativo. Portanto, so as mesmas populaes.
#
# Calculo alternativo para t=1.9
tt=1-pt(1.9,19)
tt*2*100
#
## Fim! ##
#
## EXERCCIO 2 ##
#
## Biomassa de rvores ##
#
e=exp(-1.7953)
d=15
b=e*d^2.2974
b
# 
# O calculo acima criou-se os objetos: "e" para o expoente de valo -1.7953; "d" para o valor DAP=15cm; e "b" para equao final.
#
h=12
l=(-2.6464+1.9960*log(d)+0.7558*log(h))
l
l2=exp(l)
l2
#
# O calculo acima criou-se os objetos: "h" para o da altura h=12m; "l" para a equao em funo de log; e "l2" para transformar a funo em valor comparvel com a equao "b". 
#
l2-b
#
# A diferena entre o resultado das duas equao "l2" - "b", dado em kg.
#
## Sequncias ##
#
# 1. repetio do "a" n vezes.  
a= rep("a", 6)
a
# 2. repetio e sequencia dos nm. de 1 a 3.
b=rep(1:3, each=3)
b
# 3. repetio decrescente e sequencia dos nm. de 1 a 3.
c=c(rep(1,3),rep(2,2),3)
c
# 4. repetio sequencial de 1 a 5 (crescente) e 1 a 4 (decrescente)   
d=c(rep(1:5),rep(4:1))
d
# 5. Nm. impares de 1 a 99.
#
e=seq(1,99,by=2)
e
#
## Conta de Luz ##
#
con=c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052) 
con
# 1. O consumo mensal (abaixo)
men=diff(con)
men
# 2. Mximo e Mnimo do cons. mensal
max(con)
min(con)
# 3. A mdia, mediana e varincia do cons. mensal
mean(con)
var(con)
range(con)
median(con)
#
## rea Basal ##
# 
# 1. Calculo do DAP
dap=13.5
r=dap/2
r
bas=pi*r^2
bas
# 2. Calculo dos diferentes valore das reas basis a partir do DAP.
dap1=c(7,9,12)
dap1
r=dap1/2
r
bas=pi*r^2
bas
sum(bas)
#
## Varincia na Unha ##
#
#1. Calcula da variancia e desvio-padro
pes=c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4) 
pes
media=mean(pes)
media
desv=media-pes
desv
vari=sum(desv^2)/(length(pes)-1)
vari
# 2. Comparao
var(pes)
sd(pes)
#
## Teste t ##
#
# Para t=2.2
pt(2.2,19, lower.tail=F)*2*100
# O teste  significativo
#
# Para t=1.9 
pt(1.9,19, lower.tail=F)*2*100
# O teste no  significativo. Portanto, so as mesmas populaes.
#
# Calculo alternativo para t=1.9
tt=1-pt(1.9,19)
tt*2*100
#
## Fim! ##
#

